﻿Imports Microsoft.VisualBasic
Imports System.Globalization


Public Class clsCheckDateServer

    Public Enum numCulture
        Thai = 0
        Eng = 1
    End Enum

    Private CultureInfoGobal As String
    Private vNumCulture As numCulture

    Public Sub New()
        CultureInfoGobal = System.Globalization.CultureInfo.CurrentCulture.Name

        Select Case CultureInfoGobal
            Case "th-TH"
                vNumCulture = 0
            Case "en-US"
                vNumCulture = 1
            Case Else

        End Select

    End Sub

    'getDateThOrEn = ต้องการ return เป็๋นวันที่ พ.ศ. หรือ ค.ศ.
    'strDate = วันที่ที่ส่งมา

    Public Function GetDate(ByVal DateThOrEn As numCulture, ByVal strDate As String) As String
        Dim dteDate As Date = Nothing
        Dim rStrDate As String = ""


        Try
            dteDate = strDate
        Catch ex As Exception
            Throw New Exception("เกินข้อผิดพลาด รูปแบบวันที่ผิด")
        End Try


        Try
            If vNumCulture = 0 Then 'กรณีที่เครื่อง server ตั้งเป็นไทย


            ElseIf vNumCulture = 1 Then 'กรณีที่เครื่อง server ตั้งเป็นอังกฤษ


            End If
        Catch ex As Exception

        End Try


        Return rStrDate
    End Function


End Class
